home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
vis082s.arc
/
PULLDOWN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-17
|
3KB
|
77 lines
Program Pull_Tech_For_ViSiON;
Uses CRT, FastTTT5,DOS,WinTTT5,MenuTTT5,PullTTT5;
(* Pulldown Menus For ViSiON; Use'n Techo-Jock's ToolKit 5.0 *)
var
Main_Choice,Choice,Error : integer;
ScanTop, ScanBot : byte;
M1, MM : Menu_record;
Ch : char;
Procedure Which_Chat;
begin
Menu_Set(M1);
With M1 do
begin
Heading1 := 'ViSiON v0.82 Online SysOp Chat Commands';
Heading2 := 'Chat Commands';
Topic[1] := ' Regular Color - Split Screen';
Topic[2] := ' Multi-Colored - Split Screen';
Topic[3] := ' Regular Color - Veritcal Chat';
Topic[4] := ' Mulit-Colored - Vertical Chat';
Topic[5] := ' Regular Color - One Line Chat';
Topic[6] := ' Quit Chat Menu';
TotalPicks := 6;
PicksPerLine := 1; {one column of choices}
Addprefix := 1; {add function key prefixes}
TopleftXY[1] := 0; {system will center menu}
TopleftXY[2] := 3; {Y coordinate}
Boxtype := 5; {fancy box}
If ColorScreen then
begin
Colors[1] := white; {hi forground}
Colors[2] := magenta; {hi background}
Colors[3] := lightgray; {lo foreground}
Colors[4] := blue; {lo background}
Colors[5] := lightgray; {box color}
end
else
begin
Colors[1] := white; {hi forground}
Colors[2] := black; {hi background}
Colors[3] := black; {lo foreground}
Colors[4] := lightgray; {lo background}
Colors[5] := white; {box color}
end;
AllowEsc := false; {inactivate the escape key}
Margins := 5;
end; {with M1 do}
end; {Define_Menu1}
Var X,Y:Byte;
Done:Boolean;
Begin
Activate_Visible_Screen;
SlideRestoreSCreen(2,Down);
Clrscr;
FillScreen(1,1,80,24,white,blue,chr(176));
Findcursor(X,Y,ScanTop,ScanBot);
OffCursor;
Main_Choice := 1;
Done:=False;
repeat
Which_Chat;
DisplayMenu(M1,false,Main_Choice,Error);
Case Main_Choice of
1 :Begin WriteLn('Wow!'); End;
2 :Begin WriteLn('Whoa'); End;
3 :Begin WriteLn('Ohhh'); End;
4 :Begin WriteLn('aka'); End;
5 :Begin WriteLn('alala'); End;
6 :Done:=True;
end; {case}
until Done;
OnCursor;
End.